home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1990: Discy Business / Discy Business.2mg / DEV.CD / GUIDED.TOURS / IIC.PLUS.TOUR / APPLE.PLAY / PLAY (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1983-08-18  |  1.9 KB  |  51 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 1  ONERR  GOTO 10000
  2. 10  LET IN$ = "X": POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,24: HOME :F$ = "PLAY.INTRO": GOSUB 150: FOR NS = 1 TO 5: GOSUB 80: GOSUB 20: NEXT NS: GOSUB 160
  3. 12  HOME : VTAB 12: HTAB 11
  4. 14  PRINT "Please wait..."
  5. 15  VTAB 1: PRINT : PRINT  CHR$(4);"RUN STARTUP": END 
  6. 20  POKE  -16368,0
  7. 30 P =  PEEK( -16384):TE = TE +1: ON P = 155 GOTO 170: ON P < >13 GOTO 40: IF TE <225  THEN 30
  8. 40  IF P = 141  THEN TE = 0: CALL  -998: RETURN 
  9. 50 M$ = "Press RETURN": GOSUB 60: GOSUB 52: GOSUB 59: GOSUB 52: GOTO 50
  10. 52 Z = 55
  11. 53 P =  PEEK( -16384): IF P >127  THEN  POKE  -16368,0: GOTO 56
  12. 54 Z = Z -1: IF Z  THEN 53
  13. 55  RETURN 
  14. 56  IF P = 155  THEN  GOSUB 59: POP : POP : GOTO 170
  15. 57  IF P = 141  THEN  GOSUB 59: POP : GOTO 40
  16. 58  GOTO 54
  17. 59 M$ = "____________"
  18. 60  VTAB B: HTAB (W - LEN(M$))/2 -1: PRINT M$;: RETURN 
  19. 70  POKE 34,T -2: POKE 35,B: POKE 32,L: POKE 33,W +1: HOME : FOR BD = 2 TO W -1: VTAB T -1: HTAB BD: PRINT "_";: VTAB B: HTAB BD: PRINT "_";: NEXT BD
  20. 75  FOR BD = T TO B: VTAB BD: HTAB 1: PRINT "|";: HTAB W: PRINT "|";: NEXT BD: POKE 34,T: POKE 35,B -1: POKE 32,L +2: POKE 33,W -4: HOME : HOME : RETURN 
  21. 80  VTAB 1: PRINT : PRINT  CHR$(4);"READ ";F$:S$ = "":A$ = "":NL = 1: INPUT S$: IF S$ = "%"  THEN  GOSUB 140: INPUT T,B,L,W: GOSUB 70
  22. 90  IF S$ = "&"  THEN  FOR H = T +1 TO B -1: VTAB H: CALL  -868: NEXT H
  23. 100  CALL 813:IN$ =  MID$ (IN$,1): IF IN$ = "^"  THEN 130
  24. 110  IF NL = 1  THEN  VTAB T +1: HTAB 1
  25. 120 NL = NL +1: PRINT IN$;: GOSUB 100
  26. 130  RETURN 
  27. 140  POKE 32,0: POKE 33,40: POKE 34,V: POKE 35,24: HOME : RETURN 
  28. 150  PRINT : PRINT  CHR$(4);"OPEN ";F$: RETURN 
  29. 160  VTAB 1: PRINT : PRINT  CHR$(4);"CLOSE ";F$: RETURN 
  30. 170  POKE 32,0: POKE 33,40: POKE 34,0: POKE 35,24: GOSUB 160: PRINT : PRINT  CHR$(4);"RUN STARTUP"
  31. 10000 ERR% =  PEEK(222):LINE% =  PEEK(218) + PEEK(219) *256
  32. 10005  IF ERR% = 255  THEN  RESUME 
  33. 10010  TEXT : HOME : PRINT  CHR$(4)"CLOSE": PRINT "An ERROR has occurred in this program.": PRINT 
  34. 10100  IF ERR% < >6  THEN 10200
  35. 10110  PRINT "The next program to be executed was not": PRINT "found on the diskette in the drive.": GOTO 10220
  36. 10200  IF ERR% < >8  THEN 10900
  37. 10210  PRINT "There appears to be a problem with the": PRINT "diskette in the disk drive."
  38. 10220  PRINT : PRINT "Make sure you have the correct diskette": PRINT "(Your Tour of the Apple II) in the disk": PRINT "drive.": GOTO 11000
  39. 10900  PRINT "The error does not seem to be one that": PRINT "this program knows about.  Please note": PRINT "the error number and line number listed": PRINT "below and report it to your dealer."
  40. 10910  PRINT : PRINT "Error Number = "ERR%: PRINT "Line number = "LINE%
  41. 10920  PRINT : PRINT "Please put another program diskette in": PRINT "the disk drive.  When you have done": PRINT "this press RETURN to continue."
  42. 10930  GOSUB 12000: PRINT : PRINT  CHR$(4)"PR#5"
  43. 11000  PRINT : PRINT "Press RETURN to continue."
  44. 11010  GOSUB 12000
  45. 11020 EC% = EC% +1: IF EC% >2  THEN 11900
  46. 11025  IF LINE% = 15  OR LINE% = 170  THEN  RESUME 
  47. 11030  RUN 
  48. 11900  HOME : GOTO 10900
  49. 12000 P =  PEEK( -16384): IF P <128  THEN 12000
  50. 12010  POKE  -16368,0: IF P < >141  THEN 12000
  51. 12020  RETURN